home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ladybug.arc / SPIRO.BUG < prev    next >
Encoding:
Text File  |  1983-10-09  |  384 b   |  5 lines
  1. define "subspiro [[ :side :angle :max][local "count][make "count 1][repeat :max [fd :side * :count  rt :angle  make "count :count + 1]]]
  2. define "spiro [[ :side :angle :max][repeat 32000 [subspiro :side :angle :max]]]
  3. make "describe [SPIRO from Turtle Graphics, Pg. 37]
  4. "spiro [[ :side :angle :max][repeat 32000 [subspiro :side :angle :max]]]
  5. make "describe [SPIRO from Turtle Gra